home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / diskmags / ararchive.lha / ARArchive / Install_ARArchive < prev   
Encoding:
Text File  |  1995-02-02  |  4.7 KB  |  157 lines
  1. ;
  2. ; Install For ARArchive ©1995 Robert Reiswig
  3. ; $Id: ARArchive  1.5 
  4. ;
  5. (set osver (/ (getversion "LIBS:version.library") 65536))
  6. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  7. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  8. ( if (= osver 41) ( (set workbench "4.0")) )))))
  9.  
  10. ( if (= osver 37) ( (set DefCpu 0)) ( if (= osver 38) ( (set DefCpu 1))
  11. ( if (= osver 39) ( (set DefCpu 2)) ( if (= osver 40) ( (set DefCpu 3))
  12. ( if (= osver 41) ( (set DefCpu 4)) )))))
  13.  
  14.  
  15. (if (< osver 37)  (abort "Sorry You need 2.0 or higher to run ARArchiver!") )
  16.  
  17. (message "ARArchive V1.3.03\n\nBy: Robert Reiswig\nrcr@netcom.com\n\n"
  18.          "This Installer will do a few things:\n\nCopy ARArchive to where you tell it."
  19.          "\nAdd an AR: assign to your User-Startup.\n "
  20.          "Create a few scripts for ARArchive-LHA (If selected)"
  21. ) 
  22.  
  23.  
  24.  
  25.  
  26. (set How  (askchoice (choices "In LHA format (ie: ar301.lha)" "In Uncompressed format (ie: ar301.guide)")
  27.                      (prompt "How do you store your Amiga Reports?")
  28.                  (help   "How do you store your Amiga Reports?")
  29.                      (default 0)
  30.       )
  31. )
  32.  
  33.  
  34. (if (= How 0) (set HowText "ARArchive-LHA") )
  35. (if (= How 1) (set HowText "ARArchive") )
  36.  
  37.  
  38.  
  39.  
  40. (set ARA_dest
  41.         
  42.            (askdir
  43.                    (prompt (cat "Where do you wish to install:\n" HowText))
  44.                    (help @askdir-help)
  45.                    (default @default-dest)
  46.                    
  47.            )
  48.                 
  49.         
  50. )
  51.  
  52.  
  53. (set @default-dest ARA_dest) 
  54.  
  55.  
  56. (if (= How 0) (set HowCompress "LHA'ed") )
  57. (if (= How 1) (set HowCompress "Uncompressed (AmigaGuide)") )
  58.  
  59. (set AR_dest
  60.      
  61.                 (askdir
  62.                         (prompt (cat "In which drawer are the\n*" HowCompress "* Amiga Reports\nstored?"))
  63.                         (help @askdir-help)
  64.                         (default @default-dest)
  65.                 )
  66.                 
  67. )
  68.  
  69.  
  70. (set DoThis (cat "ASSIGN AR: " AR_dest))
  71. (run (DoThis))
  72.  
  73.  
  74.  
  75. (if (= How 0)
  76.   (
  77.      (message "\n\n\n\nNOTE\n~~~~~~~~~~~~~\nYou must be running AREXX and have LHA in the command path "
  78.               "to use ARArchive!")
  79.    
  80.      (copyfiles (source "ARArchive-LHA.info") (dest ARA_dest) )
  81.      (copyfiles (source "ARArchive-LHA.guide") (dest "AR:") ) 
  82.  
  83.  
  84.      (set osverS (askchoice (choices "2.0" "2.1" "3.0" "3.1")
  85.                      (prompt "Please Select the OS Version you are running. "
  86.                              "This will be the Machine you will install ARArchive on. "
  87.                              "This is needed to tell the ARexx script to use AmigaGuide or Multiview. "
  88.                              "The Installer has found\n" workbench " version of the OS." )
  89.                  (help   "Select OS Ver")
  90.                      (default DefCpu)
  91.              )
  92.      )
  93.      
  94.  
  95.      (if (< osver 39) (set AGViewer "AmigaGuide") )
  96.      (if (> osver 38) (set AGViewer "Multiview") )
  97.  
  98.      
  99.      (textfile (dest (tackon ARA_dest "ARArchive-LHA"))
  100.                (append (cat AGViewer " AR:ARArchive-LHA.guide"))
  101.      )
  102.  
  103.      (textfile (dest (tackon "c:" "ARA"))
  104.                (append "/* ARA-Unlha Robert Reiswig V1.0   rcr@netcom.com */\n")
  105.                (append "ADDRESS COMMAND\n")
  106.                (append "parse arg ARfilePath ARfile\n")
  107.                (append " \n")    
  108.                (append "/* Set UnLha command , AmigaGuide Viewer, where to Uncompress */\n")
  109.                (append "Where = \"T:\"\n")
  110.                (append "UnLhaCommand = \"lha -q x\"\n") 
  111.                (append (cat "GuideViewer = \"" AGViewer "\"\n"))
  112.                (append " \n")
  113.                (append "/* Build Rexx Script */\n")
  114.                (append "cmd1 =  '\"' || UnLhaCommand || \" \" || ARfilePath || \" \" || Where || '\"'\n")
  115.                (append "ARFileZ = right(ARFile,(LENGTH(ARFile))-1)\n")
  116.                (append "cmd2 =  GuideViewer || \" \" || '\"' || Where || ARFileZ || '\"'\n")
  117.                (append "cmd3 = '\"' || 'delete >nil:' || \" \" || Where || \"AR#?\" || '\"'\n")
  118.                (append " \n")
  119.                (append "/* Execute - Unpack , display , delete */\n")
  120.                (append "interpret cmd1\n")
  121.                (append "interpret cmd2\n")
  122.                (append "say \"Thanks for using ARArchive-LHA\"\n")
  123.                (append "interpret cmd3\n")
  124.                (append " \n")
  125.  
  126.      )
  127.  
  128.   )
  129. )
  130.  
  131.  
  132. (if (= How 1)
  133.   (
  134.      (copyfiles (source "ARArchive")
  135.                 (dest ARA_dest)
  136.                 (infos)
  137.      )
  138.   )
  139. )
  140.  
  141.  
  142.  
  143. (startup "ARArchive"
  144.           (prompt "Adding an ASSIGN to your S:User-startup.")
  145.           (command (DoThis))
  146.           (help
  147.                   "\nIn order for ARArchive to find the Amiga Reports"
  148.                   "an assign must be made for AR:"
  149.           )
  150. )
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.